home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19970929-19971216 / 000147_news@newsmaster….columbia.edu _Sun Oct 19 23:55:56 1997.msg < prev    next >
Internet Message Format  |  2020-01-01  |  2KB
  1. Return-Path: <news@newsmaster.cc.columbia.edu>
  2. Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.35.30])
  3.     by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id XAA00241
  4.     for <kermit.misc@watsun.cc.columbia.edu>; Sun, 19 Oct 1997 23:55:55 -0400 (EDT)
  5. Received: (from news@localhost)
  6.     by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id XAA19483
  7.     for kermit.misc@watsun; Sun, 19 Oct 1997 23:55:54 -0400 (EDT)
  8. Path: news.columbia.edu!panix!howland.erols.net!news.mathworks.com!mvb.saic.com!news.eskimo.com!jimo
  9. From: jimo@eskimo.com (Jim Osborn)
  10. Newsgroups: comp.protocols.kermit.misc
  11. Subject: login script beeps unexpectedly
  12. Date: 20 Oct 1997 03:42:45 GMT
  13. Organization: Eskimo North (206) For-Ever
  14. Lines: 45
  15. Message-ID: <62ejvl$fpk$1@eskinews.eskimo.com>
  16. NNTP-Posting-Host: eskimo.com
  17. Xref: news.columbia.edu comp.protocols.kermit.misc:7925
  18.  
  19. I use the following macro to connect with my ISP, and to reject the
  20. one line of theirs I know to be unreliable, restarting the dialing
  21. process if I detect that line.  I'd like the thing to beep at me
  22. when it eventually connects, so I know to drop whatever else I'm
  23. doing, but to stay quiet otherwise.
  24.  
  25. For some reason, this macro beeps every time it finds the bad modem
  26. and restarts.  Can someone explain why?
  27.  
  28. One minor question: can someone explain the difference between the
  29. apparently undocumented "beep" command (can't find reference to it
  30. in the CK60 book, other than its use in a script example) and the
  31. good old "echo \007" command?  The effects are very different.
  32.  
  33. Thanks in advance,
  34. jimo@eskimo.com
  35.  
  36. -----------------------------------------------------------------------
  37. define eskimo {
  38.     while not defined \%1 {
  39.         askq \%1 {Eskimo Password: }
  40.     }
  41.     :retry
  42.     dial 258-0759
  43.     in 30 {Your Selection ==>}            #Initial selector, choose service
  44.     output 1\13                            #Select Eskimo
  45.     in 60 login:                        #Start login process
  46.     out jimo\13                            #Look for: Hello ,CLI,,27,xxx@seattle2
  47.     clear input
  48.     in 30 {Welcome to eskimo.com}            #Read Annex ID string
  49.     xif \find({CLI,,27},\v(input)) {        #Start over if toxic modem
  50.         xif \find({@seattle2},\v(input)) {
  51.             echo {Aborting 27,,2}
  52.             goto retry
  53.         }
  54.     }
  55.     in 30 Password:
  56.     out \%1\13
  57.     in 60 {Main Command?}
  58.     out {!}                    #Start shell
  59. #    beep                    #doesn't beep until escape back to kermit
  60.     echo \007    #^G
  61.     connect /quietly
  62. }
  63. ------------------------------------------------------------------